gusucode.com > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT) > ASP+ACCESS在线手机销售系统(论文+源代码+答辩PPT)\9)ASP 在线手机销售系统\HandsetPro\handset\admin\proAddPicSave.asp
<!-- #include file = "include/sysbase.asp" --> <!--#INCLUDE FILE = "include/upload_5xsoft.inc"--> <% dim uploadObj, szPath, fileObj, szFileName, tmp dim strSQL dim nID, szType set uploadObj = new upload_5xSoft set fileObj = uploadObj.File("filePic") '与上传表单中的file1相对应 nID = uploadObj.Form("id") szType = uploadObj.Form("type") '判断参数是否正确 if nID = "" or szType = "" then Response.Write "有错误发生,无法获取上传参数<br>" Response.Write "<a href=""javascript:window.close();"">[关闭]</a>" Response.End() end if szPath = "../"& szType &"/" if fileObj.FileSize>0 then '如果 FileSize > 0 说明有文件数据 tmp = fileObj.FileName '以nID+原文件扩展名重新命名上传文件 szFileName = nID & right(tmp, (len(tmp)-InStrRev(tmp,".")+1)) Response.Write szFileName fileObj.SaveAs Server.MapPath(szPath & szFileName) '保存文件 end if strSQL = "UPDATE product SET "& szType &" = '"& szFileName &"' WHERE id = "& nID conn.Execute(strSQL) '释放对象,关闭连接 set fileObj = nothing CloseConn() %> <script language = Javascript> <!-- alert("上传图片成功!"); opener.location.reload(); window.close(); --> </script>